home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / demosnew / demon057.d64 / beer factory_ilc (.txt) next >
Commodore BASIC  |  1995-04-22  |  2KB  |  45 lines
  1. 100 POKE53281,.:POKE53280,.:PRINT"[147]        IMPORTED BY SUSIEUZI FOR:
  2. 1000 [153]"LIST           TOTOTOTOTOTOTOTOLIST TOLIST              ";
  3. 1010 [153]"                        LISTWAIT  TAB(USRFREWAITNEWPOSANDTO";
  4. 1020 [153]" LISTWAIT               DEFORSYS=PRINT=OPEN=CONT=CLR=DEF=SYS=PRINT=OPEN=";
  5. 1030 [153]"ABSGETDEF=SYS=PRINT=OPEN= WAITTAB(USRFRENEWPOSAND  SYSWAIT=PRINT=OPEN=CONT=CLR=DEF=SYS^LIST ";
  6. 1040 [153]"   SYS    -PRINT{OPEN{CONT{CLR{DEF{SYS{PRINT{OPEN{CONT{ABSGETSYS{PRINT{OPEN{CONT{";
  7. 1050 [153]" DEFWAIT>SYS>PRINT{OPENEXPCONTANDCLR/DEF> PRINTWAIT>OPEN{CONT{CLR>DEF>SYS>PRINTEXPPOKE^LIST   ";
  8. 1060 [153]"POKE    PRINT-OPEN{CONT{CLR{DEF{SYS{PRINT{        CLRWAIT> OPENWAIT*RND}";
  9. 1070 [153]"CONTSGN  WAITRND CONT WAIT/CLR<*  WAITRNDPOKE<LIST   POKE    OPEN-CONT{CLR{DEF";
  10. 1080 [153]"{SYS{PRINT{OPEN{CONT>CLR>DEF<PRINTNEW/OPEN>CONT{CLREXPPRINT SYSWAIT}OPENABSGETCONT}CLRTHENCONTGETLOG ";
  11. 1090 [153]"WAITRND+INTDEF}CLRSGNWAITINTSYS CLRCOSPOKE<LIST   POKE    CONT/CLR{DEF{SYS{PRINT{OPEN{CONT<";
  12. 1100 [153]"SYSSGNWAITSGN}PRINTGETWAITINTCONT-CLR<PRINTTHENGET}OPENTHEN+CLRWAIT}THENCONT+PRINTWAIT CONTLOG WAITRND";
  13. 1110 [153]" SYSWAIT}CLR WAITSGN*RNDPOKE<LIST   POKE    DEF WAIT/SYS{PRINT{OPEN{CONT{CLR<SYS+GET";
  14. 1120 [153]"PRINT-OPEN^PRINT CLRWAIT/DEFEXPPRINTSGNWAITFNOPEN-CONT^OPEN DEFWAIT/SYS^CONT OPENWAITORCONT^LOG ";
  15. 1130 [153]"CLOSEWAITSGNCLR WAITRND+ABSPOKEWAIT<LIST   POKE    DEFSGNCLRWAITSGNPRINT{OPEN{CONT{CLR{DEF<SYS";
  16. 1140 [153]"THEN+OPENWAIT-CONT<PRINTGETWAITGETCONT PRINTCLOSEOPENWAITORCONT{CLR<OPENFNWAITSGNPRINT}CONTSGNWAIT/CLR{DEF";
  17. 1150 [153]"^CONTLOG WAITINTCLRLOGAND  POKEWAIT<LIST   POKE    DEFABSABSOPENWAIT-CONT{CLR{DEF{SYS{";
  18. 1160 [153]"PRINT^SYS CONTWAIT/CLR{DEF^PRINT CONTWAIT PRINTCLOSECONTWAIT-CLR{DEF<OPENINTWAITINT}CONTINTWAITINTDEF";
  19. 1170 [153]"-SYS{PRINT^CONTGETWAITGETCLRORDEF=SYS=PRINT^POKE<LIST   POKE    DEFTHENTHENCONTWAIT-CLR{DEF{";
  20. 1180 [153]"SYS{PRINT{OPEN<SYSSGNWAITSGNDEF-SYS<PRINTABSGET CLRWAIT-DEF{SYS<OPENGETWAITGETCONT}ABSGETSYS-PRINT{";
  21. 1190 [153]"OPEN{CONT=CLR=DEF{SYS{PRINT{OPEN<POKE<LIST   POKE   PRINT OPEN}DEF CLRWAIT/DEF{SYS{PRINT{";
  22. 1200 [153]"OPEN{CONT<SYSINTWAITGET-PRINT{OPEN^PRINT WAITGETDEF-SYS{PRINT<OPENLOGCOSCLR-DEF=SYS=PRINT{OPEN{CONT{";
  23. 1210 [153]"CLR{DEF{SYS{PRINT{OPEN{CONT<POKE<LIST   POKE    CONT}DEFSGNWAITSGNSYS-PRINT{OPEN{CONT{CLR<";
  24. 1220 [153]"SYSABSGETPRINT-OPEN{CONT<PRINTGETDEFWAITORSYS{PRINT{OPEN{CONT=CLR=DEF{SYS{PRINT{OPEN{CONT{CLR{DEF{SYS";
  25. 1230 [153]"{PRINT{OPEN{CONT{CLR<POKE<LIST   POKE    CLR}DEFGETWAITINTPRINT-OPEN{CONT>CLR>DEFEXPSYSTHENGET";
  26. 1240 [153]"OPEN/>CLR>DEF`SYS>PRINT>OPEN{CONT{CLR{DEF{SYS{PRINT{OPEN{CONT{CLR{DEF{SYS{PRINT{OPEN{CONT{";
  27. 1250 [153]"CLR{DEF<POKE<LIST   POKE    DEF}GETWAITGETOPEN/CONTEXPDEFNEWTAB( SYSWAITLOGCOSLISTRND*  ";
  28. 1260 [153]"WAITRND CONTWAIT{CLR{*  WAITRND  WAITRNDSYS{PRINT{OPEN{CONT{CLR{DEF{SYS<POKE<LIST ";
  29. 1270 [153]"  POKE    SYS/DEFABSABSWAITNEW NEWWAITUSRLIST WAITCOSLOGFREINTWAITCOSLOG+ CLRWAIT>DEF";
  30. 1280 [153]">INTWAITCOSLOGABSWAITGETDEF> PRINTWAIT>OPEN>CONT>CLR>DEF>SYS>PRINTEXPPOKE<LIST   POKE  ";
  31. 1290 [153]"   DEFTHEN NEWWAITUSRPOKE>>LIST WAITRND*USRINTWAITRND*+ POKEWAIT>>INTWAITRND*";
  32. 1300 [153]"ABS  WAITCOSPOKE>>>>>>>EXPLIST   POKE           LOG  WAITCOSLOG ";
  33. 1310 [153]" WAITCOS   WAITLOG  WAITCOS LISTWAITLOGNEW LIST                 ";
  34. 1320 [153]"                                        ";
  35. 1330 [153]"                                        ";
  36. 2000 [129]TM[178]1[164]2000:[130]TM
  37. 2010 [153]"LOAD
  38. 2020 PRINT"NOTE:  NTSC USERS, YOU MAY LOAD "
  39. 2030 PRINT"EACH SECTION WITH ,8,1 AND SYS 2061
  40. 2040 [153]"WILL START EACH PART.  THE PAL
  41. 2050 PRINT"LOADER WILL NOT WORK ON NTSC."
  42. 2060 PRINT"SUSIEUZI & GREGO 8-8-93
  43. 3000 [129] ILC[178]1[164]4000:[130]ILC
  44. 9999 [147]"THE*",8
  45.